home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler7.Sym < prev    next >
Encoding:
Text File  |  1995-08-14  |  3.5 KB  |  10 lines  |  [TEXT/.Ob4]
  1. ˜ˆÒÿöKepler7Frame탇óTextFramesܵàflDisplayFramedscnextX
  2. Y WH
  3. ¸{f xFrameMsg˚{msg     Handlerhandle tFrameDescæœ⁄óTextsTexttextorg col"left$right&top(bot*markH,barW0time4hasCar5hasSel6showsParcsorgposx
  4. y dxdy lLocation8carlocÃselbeg‡selendÙfocus¯ ¸hFrameDescText¸keplerTextÜõ¬∂KeplerGraphsGraphÄgraph ÑxFrameDescµï√∂KeplerFrames |ObjectDesc
  5. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  6. ¸{selfıñ≥Filesreseof tRider˚{R Read
  7. ¸{self˚{R WritenofptsStar
  8.  p!Constellation!next t"""ConsDesc
  9. !¸{self˚{R "Read
  10. !¸{self"State
  11. !¸{self˚{R "    Write
  12.  #cmd#8par "ÿt$$$ButtonDesc
  13. $%Button%¸{B    ˚{keys $Execute
  14. %¸{B&Frame&˚{F˙{x˘{y    ¯{keys $HandleMouse
  15. %¸{B˚{R $    Read
  16. %¸{B˚{R $
  17. Writeÿtext $‹|'''TextDesc
  18. ¸{t˚{f 'Draw
  19. ¸{t&˚{f˙{x˘{y    ¯{keys 'HandleMouse
  20. ¸{t˚{r 'Read
  21. ¸{t˚{r 'Write
  22.  NewText
  23.  Updatelen
  24. ¸{T˚{op˙{beg˘{end     (Notifier(notify  x))TextDesc)'!consstars seltime
  25. ¸{op˚{G˙{O˘{P     *Notifier*notify p++
  26. +GraphDesc
  27. ¸{G˚{op + All
  28. ¸{G˚{o + Append
  29. ¸{G˚{from˙{dx˘{dy +
  30. CopySelection
  31. ¸{G˚{o +Delete
  32. ¸{G˚{minstate +DeleteSelection
  33. ¸{G˚{P +Draw
  34. ¸{G˚{p +FlipSelection
  35. ¸{G˚{s˙{dx˘{dy +    Move
  36. ¸{G˚{dx˙{dy +
  37. MoveSelection
  38. ¸{G˚{R +Read
  39. ¸{G˚{o + SendToBack
  40. ¸{G˚{R +Write
  41. ¸{G˚{R + WriteSel+x0y0scale ext $|,, ,PortDesc
  42. ¸{P˚{x,CX
  43. ¸{P˚{y,CY
  44. ¸{P˚{X,Cx
  45. ¸{P˚{Y,Cy
  46. ¸{P˚{x˙{y˘{r¯{col˜{mode ,DrawCircle
  47. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode ,DrawEllipse
  48. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode ,DrawLine
  49. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode ,DrawRect
  50. ¸{P˚{x˙{y -˘{sêØâflFonts.Font.˜{fontˆ{colı{mode ,    DrawString
  51. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode ,    
  52. FillCircle
  53. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode ,
  54. FillQuad
  55. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode , FillRect,xyrefcntsel next x///StarDesc
  56. ¸{self˚{P /Draw
  57. ¸{self˚{R /Read
  58. ¸{self˚{R /Write/!" ,$p00 0DisplayPortDesc
  59. 01DisplayPort1¸{P˚{x˙{y˘{r¯{col˜{mode 0DrawCircle
  60. 1¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode 0DrawEllipse
  61. 1¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode 0DrawLine
  62. 1¸{P˚{x˙{y 2˘{s.˜{fontˆ{colı{mode 0DrawString
  63. 1¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode 0 FillRect$G(col*grid 0,|333FrameDesc
  64. &¸{F˚{ch 3 Consume
  65. &¸{F˚{x˙{y    ˘{keys 3
  66. EditFrame
  67. &¸{F˚{newY 3 Extend
  68. &¸{F˚{p 3 Invert
  69. &¸{F 3
  70. Neutralize
  71. &¸{F˚{newY 3Reduce
  72. &¸{F˚{X˙{Y˘{W¯{H 3Restore
  73. &¸{F˚{x˙{y    ˘{keys 3TrackMouse&3
  74.  4Name4name height"minX$maxX&minY(maxY5Font5,raster0 4|66FontDesc.6 |77Bytes57